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VSD5SSDUAZE: Br CNCP. SRCINCPLIBRY. B32;1 (1) 


ZTITLE ‘NCPLIBRY sym pol efinition Library’ 
HMODULE NCPLIBRY cbent’s youcogoe) E ererY 


! 
RRA AA AE REAR AAAAAAAAAEAAAERAAAHAAAAEAAAHAEA KEKE eee AeA eee 


! ® 
'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD, MASSACHUSETTS. * 
:* ALL RIGHTS RESERVE ° 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND aX | A i: A ag B AND coptee * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH WITH THE * 
1 'e INCLUSION OF a & ay tk COPYRIGHT NOTICE. THIS soft Gane OR ANY OTHER * 
15 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
Role '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 i. TRANSFERRED. * 
: ® 
0919 'e He 3 oo IN THIS SOFTWARE IS SUBJECT TO CHAM@GE WITHOUT NOTICE * 
0 'e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
0021 - CORPORATION. * 
. ® 
4 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 ® 
00 'e * 
88 ; ‘taal aetna 
, ee 
1 FACILITY: NCP Network Control Program (NCP) 
§ ! ABSTRACT: 


NCP Library of common definitions 
i ENVIRONMENT: VAX/VMS Operating System 


abet Wy 


SS8S8sssssss 
La 
SOCOSOSOOSOOOOSOOCOOCOCOOOOSOOOOOSSOSOSSOSSSSSOSOSCOSOOOOCOOOCOOCOOOOOOOOOOoOO 


i 
! 
' 
' 
' 
' 
39 i AUTHOR: Darrell Duffy , CREATION DATE: 28-August-1979 
1 i MODIFIED BY: 
: : v03-031 pepotte Paul R. DeStefano 31-Jul-19 . 
4 : Allow node address and executive node address of 
é i VO3-030 PRDO104 Paul R. DeStefano 18-Jul-1984 
} Allow underscores ("."") to be included in group, 
3 network, and destination names. 
50 ! v03-029 PRDOOSO Paul R. DeStefano 05-F eb-1984 
23 ace Soe, state expression to parse OBJECT parameter as 
33 : Changed ACTSGL_NODADR_Q to more general name ACTSGL_ADR_Q. 
55 ! v03-028 RPGO028 Bob Grosso 10-Jun-1983 
2$ Add service device UNA. 
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v03-027 hog + Bob Grosso 22-Mar-1983 


sssssssssss 
SESSRRR AS aos Isoee sores 


Sseeee 


33 


assesses 


SSLESRAVS 


kk a a ed ad ed ed ed 
— oe 
fwn—o 


Turn off BLANKS after termination of state expression 
macro to parse NI addresses. 


RPG0026 Bob Grosso 16-Mar-1983 
Update NCP version number to IV. 
Complete state expression macro to parse NI addresses. 


RPGO025 Bob Grosso 10-Mar-1983 
Add state expression macro to parse NI addresses. 


presees Bot Gro 25-Feb-1983 
Remo ° wel checking. for NODE id and correct 
ae : circuit names. 

rs cannot be backed off without taking 
hota. mich ht 


Breeds Bob Grosso 18-Feb-1983 
Remove pyagen checking for Line-id and circuit-id. 
Chenge i gh range for node adr from 255 to 1023. 
Add high and low for LINE BF 

Add high and low for NODE FBS “and SBS. 


RPG pong Pe Bob Grosso 20-0c t-1982 


og ae ane *_' in object names. Allow 12 character 
Have SE ONODE “AR flag Area present in node address. 
precee! oe Grosso 23-Sep-1982 


Parse for node are 
Range for Module fonsole RTR 


RPGO020 Bob Gross 15- ~Sep-1962 
Increase tracepoint name "Tength to 30 from 16. 
RPGO019 Bob Grosso 03-Sep-1982 
Add range for LIN aL ks 

change raen® for 

Add SEM NUM aa LENe HEX NUM to parse hex numbers. 
TMHOO18 Tim Halvorsen 16-Aug-1982 


Change trecepeing name parsing to accept a string of 
any size, a periods as legal characters. 


RPGO017 Goggse 03-Aug-82 
Add renge for Mod fete X25-Protocol MCI. 

Change QUERY_ STATES. S to allow different ALL prompt 
strings to support Sub-databases. 


RPGO016 Bob Grosso 23-Jul-82 
SERPOREPNT NAMES with subexpression for tracepoint names, 


PG0015 Bob Gro 14-Jul-82 
Ad NI Aan Ber' in Set Node by adding range alas for 
AMC, AMH MAR, MBE, MBR. 


% 
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v014 RPGO014 Bob Grosso 15-Jun-82 
Add MODULE parameter table. 
Add macro QUERY_STATES_S petterned after QUERY_STATES 
to permit alternate prompting within entities without 
having multiply defined states. 
Add Subexpression and constant for channels Lists. 


TMHOO13 Tim Halvorsen 05-Apr-1982 

Add ACTSTESTLONG action routine to ACT_DFN macro. 
Llow numeric characters in Line/circutt mnemonic. 

Add circuit MRT and RPR ranges. 

Allow any cherector following initial dash after 
Line/circuit mnemonic (such as X25-CHICAGO). 


v013 


v012 TMHOO12 Tim Halvorsen 08-Jan-1982 
Remove TMHOO0S, thus restoring RETRANSMIT TIMER 
to a Line parameter, which is what NM V5.0 finally 
came up wit. 


vo11 TMHOO11 Tim Halvorsen 31-Dec-1981 
Add DMF as a MOP service device. 


v010 TMHOO10 Tim Halvorsen 25-Nov-1981 
Allow embedded spaces in filespecs as long as they 
eppear in double quotas (access control string). 
This allows access control strings to be specified 


VFWN—OVOONOULS WN OVO OnNOu 
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i 

i 
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i 

i 

i 

i 
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i 

i 

i 

' 

i 

i 

i 

' 

H in the filespec after the TO clause in the SHOW command. 
: vO0O9 = TMHOOO9 Tim Halvorsen  22-0ct-1981 
: Fix HEX_PSW sub-expression so that blank which terminates 
hex password string does not get included in string. 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
] 
i 
i 
i 
i 
i 
i 
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v008 LMK0001 Len Kewell 19-Sep-1981 
Change NICE version to 3.0. 


v007 TMHO007 Tim Halvorsen 28-Aug-1981 
Add macro to parse Link ID 


v006 TMHO006 Tim Halvorsen 15-Aug-1981 
aad Pr yeas and DPV service devices. 


dd EXE PIPELINE QUOTA range. 


voos TMHOOO0S Tim Halvorsen 05-Aug-1981 
Change RETRANSMIT TIMER to a circuit parameter 


from a Line parameter. 


v004 TMHO004 Tim Halvorsen 07-Jul-1981 
Rename maximum blocks to maximum transmits 
Allow dashs in circuit names. 


v003 TMHOO03 Tim Halvorsen. 11-Jun-1981 
Add ranges for new V2.2 circuit parameters. 
Renove obsolete Line pol’ ing gecegetors. 


WO DONO UE WN" OOONOUS WN 00 


Change NCP version number t 


ec ee ee ce ce ce ee ee ce ce ce ee ec ee Dc a cD ce ee ee ce ee cee ee ce ee ce ce ee cD ce ce ce ee ce ce ce ce ce ce ee ed cee ed ceed ee ee 


AOU BEER RRR RE 
WSISSLSS SORES 


VO2-002 LMK0001 Len Kawell 18-Dec-1980 
Fix file-id parsing. 


Be Se Se Se Se Se Be Se Se Se Se Se Ge Ge Fe Se Se Ge Fe Ge Ge FH Ge Se FF Ge Ge Ge Fe Se Se Se Se Se FF Ss Ge SH Ss Se Se Se FF Se Se Se Sse Se Se Se Se Se Se Se Se Se ee 
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ZSBTTL ‘Definitions’ 
! 


i TABLE OF CONTENTS: 


i MACROS: 


WO OONOULW 


; Program Identification String 


CRO 
PRG_ID_STR = 
epee ("v3.00 ") 


a a td a ss  _s  __b 4  _ __d t  t  _l 


MEW —OOao~ 


: Build a cr Lf pair in a string 


2z 
DOOOSOSSOOOSSSOSOSSOSOSOSSOOSCOSCOSCCOOCOCOOCOOCOOOOOOOOOOOOOOoOO 


CRLF = 
- (13, 10) 


Wwr—o 


SFAB_DEV - a macro which defines a single FABSL_DEV bit. 
SFAB_DEV( bit_name ) 
wh 


MMMM NNN 


ere: 
“bit_name"’ is a 3-character device bit name 


ee ee 


MACRO 
SFAB_DEV( BIT NAME ) = 
FABSDEV( FABSL_DEV, XNAME('DEVS$V_',BIT_NAME) ) 2%, 


FABSDEV( FAB_BYTE, FAB_BIT, FAB_SIZE, FAB_SIGN, DEV_DISP, 
Bev_Bit, DEV_SiZE, Bev_SiGN )7= 
FAB_BYTE, DEV_BiT, DEV_SIZE, DEV_SIGN % 
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OOOCoCoooooocooccooo 
PARAASAAO 
SSS SASS IS SONSUSUN AS Se SEGA LSESSS MFM —OODONOUS wn 


COOOCOCoCoooSoo 
VVESS SOO OOS. 
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' 
Create a descriptor for a constant string 


{] = 
UPLIT BYTE ! Use byte alignment to save space 


ONG ( ! Parts must be longwords 
MAINING)), 


aaa 


; Create pointer to counted string 


MACRO 
ASCIC () = 
{ UPLIT BYTE (ZASCIC ZSTRING (ZREMAINING) ) ) 


Structure declarations used for system defined structures to 
save typing. These structures are byte sized. 
hanks to A. Goldstein) 


STRUCTURE 
BBLOCK (CO, P, S, E; N] = 


N 
(BBLOCK+0)<P,S,E>, 

BBLOCKVECTOR CI, 0, P, S, E; N, BS) = 
( (BBLOCKVECTOR+] *BS)+0)<P,S,E> 


: Concatenate text to the control string 


ADDSTR (TXT) = 
NCPSADDSTR (ASCIC (TXT), NCP$GQ_CTRDSC) 


$ Add an entry to the fao list 


‘acces meariatenemeneeneeena , = 


10 
Soialtiog ge ee HERepctORs 33:05:43 SSSS$0UA2B:CNCPY SRCINCPL IBRY.832;1 29° (35 


MACRO 
| ADDFAO (ITEM) = 


: NCPSADDFAO (ITEM) 


: 


wr 
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Macros to Build State Tables 15-Sep-1984 22:47:46 -$255$DUA28: (NCP. SRCINCPLIBRY.B32;1 (4) 
: ZSBTTL ‘Macros to Build State Tables’ | 
; | 
. ' 
: Macros to help build state tables | 
; : | 
; : For the following macros: 
; i CLs Code for the sub-command 
; NAM Parameter name 
; f 0 : ALL state names have the form ST_CLS_... 
H 0 0 4 There are two types of states, prompt and process. Prompt states 
; @ 0 ! sequence the prompts for parameters. Process states allow any 
. 4 8 parameter in any order. 
i. 
a. 0 : Build a sequence of prompt states 
; 99 0 : A prompt is printed and then it is parsed. No answer is required 
; 0 : and if none is given the next prompt is issued. If the response is 
; @ 0 ‘ *".DONE’’ then the remainder of the prompts are skipped and the 
3 B34p 5 } function is performed. 
; O81) 0 
; 0 \§ 8 MACRO 
2 2 3 i 9 PROMPT_STATES (CLS) CNAM) = 
7m 0315 0 SSTATE (NAME ('ST_", CLS, "_PMT_', NAM), 
; #4 8318 0 (TPAS_LAMBDA, , 
im 9 i 9 ” ACTSPRMPT,°, , ZNAME ('PMTSG_", CLS, '_', NAM) ) 
: 40319 0 ; 
7; m4 0 SSTATE ( 
3; #4 1 (TPAS SYMBOL, ZNAME (‘ST_", CLS, *_DOIT'), ACTSPMTDONEQ ), 
: . : ( (ZNAME ('ST_", CLS, *_*, NAM) ) J, 
: (TPA$_EOS) 
> M 0324 (TPAS-LAMBDA, ZNAME ("ST ', CLS, '_PMT_', NAM), | 
> M 0325 ACTSSIGNAL, , , RCPS_INVVAC) 
3; #4 $ 0 ); 
; 0327 0 i; 
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Build a pair of states to accomplish command prompting 


e idea is to cause gro? ote if the state fs entered 
vith TPA fo true. f frue. then the state should 

B yncit ner a transition ig satisfied or e's ommand is 
ead d. th s is done by ust ey 0 PMT_ON and OFF to remember 
the state of prompting and ACTSPMT_Q to act on that state to 
either ott (not prompting) or sucteed and issue and error message 


lerenne’ ng). 
SSTATE (ZNAME 


(IPAS a A a 


SSTATE (ZNAME ('ST_", CLS, ‘'_", NAM, '_1'), 


ZREMAINING 


(TPAS_EOS ZNAME (" oT ath CLS, ' * NAM, 
RENAME’ ¢! 
DA IN are Stratus 


CPnfsg ‘ Ase - NAM) ), 


(TPAS ara” “hs. 


Ab Ab dh 4h Ab db bb bb td 


SOONAOUNE WN $OVONOAULS WH —OO@ 


CGOOOCOCGCOCOCOCOCCOOOOCOOCOCOSOOOOCOOOOOOOOOOO 


MACRO 
COMMAND _PROMPT (CLS, NAM, STATUS) = 
q; 
| 


ei —— on 


VAX-11 Bliss-32 V4.0 
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Macros to Build State Tables 13-Sep-1984 oe 


i 


1 
: Build sequence of Query states 

: oyery states are states which save a parameter 

: if the answer to a prompt is YES. No parameter is 

: saved for NO or CR. If the response is ‘’_DONE’’ then 

‘ the remainder of the queries are skipped and the function 
} is performed. 


MACRO 
QUERY_STATES (CLS) CNAM] = 


SSTATE (ZNAME ("ST_", CLS, '_PMT_', NAM), 
(TPAS_LAMBDA,', ACTSPRMPT; * , 
ZNAME ('PMT$G_", CLS, '_', NAM) ) 


NOUS WIN—O 


Jeter 


) 
SSTATE ' 
( 


” 
s 
i 
x 
™ 
m 0380 TPAS_SYMBOL, NAME ('ST_*, CLS, '_DOIT'), ACTSPMTDONEQ ), 
m 0381 (SE“QRY_YES) 
A" ’ XTHEN E (*ST_*, CLS, "_DOIT") i IT MUST BE LAST 
m 0385 ACTSSAVPRM, . , 
ie GnAME ('PBKSG_*, “CLS, *_", NAM) ), 
m 0387 ( (SE_QRY_NO) ), 
m 0388 (TPAS"EOS), 
m 0389 (TPAS"LAMBDA, %NAME ('ST_*, CLS, '_PMT_', NAM), 
" 9 90 ACTSSIGNAL, , , NCP$_INVVAL) 
m 0391 ; 
m0 3 
039 q; 
3 
3 Slightly modified QUERY_STATES macro to permit usin 


same prompt and PBK more than once with multiply defining 
parse table states. 


we 


SRLSSRAVLSSSLESE 


SGOCSOCOSCOOOOOCOOSOOSOOSOSOOSOOSOSOOSOSOOOCOOSCOOOCOOCOOOOOOOOCOOOOOOOOOO 


MACRO 
QUERY_STATES_S (CLS) CNAM, SNAM) = 


SSTATE (ZNAME ("ST_*, CLS, ‘_PMT_", SNAM), 
(TPAS_LAMBDA,’, ACTSPRMPT; ; , 
XNAME (*PMT$G_", CLS, '_', SNAM) ) 


) 
SSTATE : 
( 


ACTSSAVPRM, . . 
£NAME ('PBKSG_', CLS. '_", NAM) ), 
( (SE_QRY_NO) ), 


10 TPAS_SYMBOL, NAME ('ST_", CLS, '_DOIT'), ACTSPMTDONEQ ), 

11 (SE“OQRY_YES), 

i XIF ZIDENTICAL (NAM, ALL) ! ALL_IS SPECIAL 
13 RTHEN ENAME (‘st_*, CLS, "_0O1T") i [TT MUST BE LAST 
15 

3 


| 

~aTF 9° «XIDENTICAL (NAM, ALL) ! ALL IS SPECIAL 
<NAM 

| 

| 


RRRLRLLLLELLLLLLEL 


— 


VWEWN—OOONOUS WOU 


o 


NCPLIORY, Gravel Defin{sien Library 1$oBee-198t 35:05:48 
(IPA -ERaabA, ZNAME ('ST_", CLS, ‘_PMT_", SNAM), 
7 ACiSs IGNAL; , , NCPS_IRVVAL) 
%; 


Build transitions in a dispatch state 
KEY Keyword for dispatch from state 


MACRO 
DISPATCH_STATES (CLS) CNAM, KEY) = 


(ZSTRING (KEY), ZNAME (‘ST_", CLS, "_PRC_", NAM) 
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Build a sequence of process states 
NOISE Noise keyword 


MACRO 
PROCESS_STATES (CLS) CNAM, NOISE) = 


SSTATE (ZNAME ("ST_", CLS, "_PRC_", NAM), 
IF NOT ZNUCL * (NOISE) 


ZSTRING (NOISE)), 
TPAS_LAMBDA) 
Fl 


RRRLLLLLLLLLLKELLELK 


PUPPIES BE EE EE EE 


DONA ULS WN" OOONOUNS win — 


(ZNAME ("ST_*. CLS, *_", NAM) ), 
UNAME (*ST_*, CLS, *_PRC') ) 


( 
) 
SSTATE ( 
X 
( 
) 


Build a set of subexpressions to decode parameters 


TYP Type of transition desired 
MACRO 
SUB_EXPRESSIONS (CLS) CNAM, TYP] = 
SSTATE (2ZNAME ("ST_", CLS, ‘_", NAM), 
(TYP, 


ZIF ZIDENTICAL (TYP, TPAS_ DECIMAL) 
THEN 
e ACTSNUM_RNG, ° 


NUM_RANGE 
BOAR (hee, e eM 
) 
SsTATE 
(TPAS_LAMBDA, 
aFI 


SRRCESIaLoNoN SSeS 
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TPAS_EXIT, ACTSSAVPRM, , , 
ZNAME’("PBKSG_", ¢LS.°"_*. NAM) ) 
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: Build transitions in a keyword state 
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Each transition saves a parameter based on the keyword 
and exits the subexpression. 


KEYWORD_STATE (CLS) CNAM, KEY) = 


(RSTRING (KEY) | TPAS gEXIT, ACTSSAVPRM, 
UNAME ('PBKSG_*, CLS, °_", NAM) ’) 
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ZSBITL ‘Macro to Build Prompt Strings’ 


Build prompt strings 


MACRO 
PROMPT_STRINGS (CLS) CNAM, STR) = 


XNAME ('PMTSG_' 
ASCID™ CESTRING tstr) ‘a 
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! 
! Build parameter blocks 


45 
46 


There are four structures associated with building messages: 
$D0B Set/Define Block 


This block is a parameter to the verb routines. It serves 
to point to other structures and to declare the type of the 
entity so that message headers can be properly built. 


PDB Parameter Data Block 


This is a data area which holds the actual parameter data. 
THe block is a status byte followed by the data as it 
appears in the message. The action routine ACTSSAVPRM 
stores the data in this block in the correct format. 


PBK Parameter Block 


This block is a parameter to ACTSSAVPRM and directs the 
storage of the parameter in the PDB. It contains the type 
of the parameter, the PDB address and an optional parameter 
for the type code. 


PCL Parameter Control List 


This block is a List of items which control the building of 
messages. Each entry is a parenecer type code, the 
parameter ID code and the PDB address. Using this block the 
routines which build messages are able to add parameter 
values or codes to the end of messages in the proper format. 
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Build the SDB 


Class of the command 

Entity type code. If negative, then system-specific entity 
Parameter data block suffix 

PCL suffix 


SSN 


RO 
BUILD_SDB (CLS, ENT, PDB, PCL) = 
Declare symbols which are not yet declared 


RIF NOT ZDECLAPED (ZNAME ('PDBS$G_", PDB) ) 
ZTHEN 
EXTERNAL 
ZNAME ( 


ZF I 


PDB$G_', PDB) 


: Build the PLIT for the SDB 
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BIND 

ZNAME ("SDB$G_", CLS) = 

UPLIT BYTE ' Use byte alignment to 
( ' Save space 


BYTE (ENT) 
LONG (ZNAME ('PDB$G_', PDB) ), 
LONG (ZNAME (*PCLS$G~". PCL) ) 


SSSIEARAWV=AS So 


ISS SSSSSS TS. 
COOOCOOOSOOOCOSSOOSCSCOOSOOOOOOOOOOOOOOOOCO OOOO OOOOO 
: 
vUumMe 
co o2zr 
rom 


PUPP PSPPIAA AAAI 


ooo 


Wn 


SS2VEARR 


FRRARRARA 


i=i=) 
= 


—OOONOUESWN “OO VOONOULWN O00 w 
SOOOOSOOOSOOSOSOOSOOOOOSOSOSOOSOOSOSOSSOSSOSGSOOSOOCOCOOOCCOOOOOCOOOOOOOOO 


PEPPEREPSRSRERERSSRERERRRRRERERRERER 
COWDNOAWE WN —OODONAUE WH 


BEREBBERETITE 
$ 


Se 


w 


NCPLIBRY Symbol! Definition Librar 


10 
Macros to Build Parameter Control Blocks 13-Se0-1984 3310542 Vessds We Had Veaeance ae 
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-Sep-1 _$255$DUA28: (NCP. SRCINCPLIBRY.B32;1 (11) 
! Build a PCL 


CLS Class of command 
remaining repeated 


NAM 
TYP Suffix for type code 
1D Suffix for parameter ID code 


PDB Suffix for PDB of data 


*BUILD_PCL (CLS) = 

! Declare the PDB's 
BUILD_PCL_PDB (CLS, %REMAINING) 

! Build the PCL PLIT 


BIND 

ZNAME (‘PCL$G_°,CLS) = 

UPLIT BYTE ! Use byte alignment to save space 
PUILO_PCL LST (CLS, ZSREMAINING) 


i, 
: Build the items in the PCL List 


BUILD_PCL_LST (CLS) CNAM, TYP, ID, PDB] = 


erie pune (*PBK$SK_*, TYP) ), ! Data type code 
at en LL (ID) ! Network management ID 
ZELSE ZNAME ("NMASC_',ID) 
oe 
LONG ( ! Address of PDB 
ZIF ZNULL (NAM) 
ZTHEN 
ZELSE ZNAME (‘PDBSG_', 
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: m 0651 0 RIF XNULL (PDB) 

:* : ZTHEN CLS, '_*, NAM 

3; #4 5 ZELSE PDB 

3; #4 4 FI 

: bese “FI 

3; #4 +9 $ ) 

; & 06 : 

; 06 i, 

; 0660 

; 0661 ! 

3 BO6¢ Declare the PDB as external 

; 0666 0 

: 4 0665 O BUILD_PCL_PDB (CLS) CNAM, I2, 13, PDB] = 

; & 0666 0 

; 4 0667 O Z1IF NOT ZNULL (NAM) 

; 4 0668 0 

3; 6 0669 O Z1IF NOT ZDECLARED 

: 4 0670 O (ZNAME ('PDBSG_', 

; § 0671 +O ZIF XNULC (PDB) 

3; mM bere 0 ZTHEN CLS, ‘_*, NAM 

3; ™ 0673 O ZELSE PDB 

; 4 0674 +O ZF I 

; & 0675 O ) 

; 4 0676 O 

:; & 0677 O X THEN 

; & 0678 O 

; 4 0679 O EXTERNAL 

:; 4 0680 0 XNAME ('PDBS$G_', 

3; § 0681 O ZIF ZNUCL (PDB) 

tm osas OO terse pba’ NAM 

; M 0684 5 “FI 

; § 0685 0 ) 

: § 0686 0 g 

; 4 0687 O <FI 

; 6 0688 O ZF I 

: 0689 0 3 
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! Build a List of PBK's 
: 
CLS Class of command 
remaining are repeated 
i NAM Suffix name of parameter 
: TYP Suffix of type code of parameter 
. PRM Value of eye code parameter 
PDB Suffix for PDB to save parameter 
RO 
BUILD_PBK (CLS) CNAM, TYP, PRM, PDB] = 
ZIF NOT XDECLARED ! Declare the pdb external 
(ZNAME ('PDBSG_* 
ZIF £NULL (PDB) 
ZTHEN CLS, '_*, NAM 
ZELSE PDB 
<FI 
) 
) 
ZTHEN 
EXTERNAL 
ZNAME ('PDBSG_', 
ZTF XNULL (PDB) 
ZTHEN CLS, ‘_", NAM 
ZELSE PDB 
2FI 
) 
xFI 
GLOBAL BIND ! Build PBK as a plit 
ZNAME (*PBKS$G_*, CLS, ‘_*. NAM) = 
sats | BYTE ! Use byte alignment to save space 
BYTE (ZNAME (‘PBKSK_*, TYP) ), ! Data type code 
LONG (ZNAME ('PDBSG_', ! PDB address 
ZIF ZNULL (PDB 
ZTHEN CLS, '_*, NAM 
ZELSE PDB 
ZF I 
, ) 
LONG ( ! Parameter for type code routine 


RIF ZNULL (PRM) 
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: Build a PDB 


CLS Class of command 
NAM Suffix for parameter 
$12Z Size of parameter data in bytes 


ZNAME (' Atte "oe tbe ao. ee 8 ' Name in classic form 
BLOCK’ C(S12) + T, 1] ' Size + 1 for status byte 
ALIGN (0) ! Byte align to save space 


CRO 
BUILD_PDB (CLS) CNAM, SIZ] = 
i; 
| 
| 
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H 
; : Build a numeric range parameter 
; MACRO 
; : NUM_RANGE (LOW, HIGH) = 
: { UPLIT BYTE ( LONG ( (LOW), (HIGH) ) ) ) ! Byte align to save space 
; 
; : Build a next state parameter 
; MACRO 
a NEXT art (COD) = 
3 " (UPLTT BYTE ! Byte align to save space 
: 4 LOnS ! Each is an address in a longword 
:. INAME (NCP$G_STTBL_* .COD) 
; " ENARE NCP$G-KYTBL_*. CODS 
: ) 
3; 4 
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' 
; EQUATED SYMBOLS: 


LITERAL . 


0 
NCPSC_MBXSIZ 
NCPSC_RSPSIZ 
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Version of NCP for messages 
Eco for messages 
User eco for messages 


Size of the mailbox buffer for network io 
Size of the response buffer for network io 


Length of an object name 
Length of an ID string 

Length of a nsp password 
Length of a file spec 

Length of a file name 

Length of a file type 

Low Limit of node address 

High Limit 

Length of node name 

Length of NI Address 

Low Limit of a node area 

High Limit 

Length of a circuit id 

Length of a total Line id 
Length of Hex number (128 bits) 
Length of Hex password (64 bits) 
Length of the access account 
Length of the access password 
Length of the access user id 
Low Limit of event class 

High Limi 

Low 


Low Limit of uic number 

igh Limit 
Length of X.25 circuit DTE address 
Length of entity name 
Length of X.25 closed user group name 
Length of X.25 network name 

ngth of X.25 destination name 


Le 
Length of X.25 tracepoint name , 
Maximum numbers of pairs in a range List 
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Macro to help define ranges 


MACRO 
DEFRNG (CLS) CNAM, LO, HI) = 
LITERAL 
IN ("HIGH_*, CLS, ‘_*, NAM) = HI, 
oe © o e ® s 
p 4 ("LOw_” CLS *, NAM) LO 
i; 
DEFRNG (NOD, ! Executor node parameters 
ADR, 0, 1 ! Node address 
AMC, 9. 63535, ' Area maximum cost 
AMH, 1, 255 ' Area maximum hops 
BRT. 1, 63545. i Broadcast routing timer 
BSZ, 1, 65535, ! Buffer size 
DFC, 1, 255, ' Delay factor 
DWT, 1, 255 ' Delay weight 
FBS, 1, 65535, ! Forwarding buffer size 
IAT, 1, 65535, ' Inactivity timer 
INT, 1, 65535, ! Incoming timer 
MAD, 1, $23 5, ' Max address 
MAR, 1, 255 ' Max area 
MBE, 1, 65555, ! Max broadcast nonrouters 
MBR, 1, 65535, ' Max broadcast routers 
MBF, 0, 65535, ' Max buffers 
mcO, 1, 102 ' Max cost 
MHP, 1, 31,_- ' Max hops 
MLN, 1, 63535. i Max Lines 
MLK, 1, 65535, ' Max Links 
MVS, 1, 255 ' Max visits 
OTM, 1, 65535, ' Outgoing timer 
RFC, 1, 65535, ' Retransmit factor 
RTM, 1, 65535, ' Routing timer 
SBS, 1, 65535 ' Segment buffer size 
P1Q, 0, 655355 ' Pipeline quota 
DEFRNG (CIR, ! Circuit parameters 
cms. 1. 3555. } Counter timer 
oe e . os 
MRT, O, 58. ' Maximum routers on NI 
RPR, 0, ¢ ' Router priority on NI 
HET, 1, 6 535. ' Hello timer 
LIT, 1, 65535, ' Listen timer 
MRC, 9. 22 ' Maximum recalls 
RCT, 1, ¥ ' Recall timer 
CHN, 9. rth ' Channel number 
MBL, 1, $ 3 §, i Maximum block 
Mul, 1, 255, ' Maximum window 
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DEFRNG (LOO, 
CNT, 
DEFRNG (LNK, 
ADR, 


DEFRNG (NOD, 
CTA, 
DCT, 
DEFRNG (DUM, 
Cou, 


i; 


Geese eseese sees 8 
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RIMM AAAOAOIAO 


“0 9 NO 2 tt tO 


BAAD 
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1, 65535) 


1, 65535 
2X FF 


0; FREER") 


O, ZX"FFFFFFFF*) 


em ee ee me mes me me eee mee 


ie spytery address 
Babble t ave 
Transmit timer 
Maximum transmits 
Active base 

active ncrement 
Inactive base 
Inactive increment 
Inactive threshold 
Dying base 

Dying increment 
Dying threshold 


' Dead threshold 


Line parameters 


Counter timer 
Block size 

Cost of the Line 
Normal timer 
Service timer 
Retransmit timer 
Holdback timer 
Maximum block 
Maximum retransmits 
Maximum window 
Tributary address 
Scheduling timer 
Dead timer 

Delay timer 
Stream timer 
Number of buffers 
Buffer size 


Loop parameters 

Count of messages 

Length of message in bytes 
Link parameter 

Link address 


Node parameters 


Counter timer 
Dump count 


Dump count 
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4 YF 

‘ 4 3r6 DEFRNG (OBJ, ! Object parameters 

; 09 § NUM, 0, 255) ! Object number 

iP 097% DEFRNG (MCS, ! Module Console 

i 097 RTR, 0, 65535) ! Object number 

; P0978 DEFRNG (MPR, ! X25-PROTOCOL 

: P 09 CT™™, 1. ‘ ! Counter timer 

7 P 434 DBL, 1, $3335, ' Default block 

: P $44) DWI, 1, 12 ' Default window 

:P 0985 MBL, 16, 4096, i Maximum block 

3; P OS Mul, 1, 4g ° ' Maximum window 

; P 0985 MCL, 1, 255, ' Maximum clears 

; P 244] MRS, 1, 32. ' Maximum resets 

; P 098 MST, 1, 255, ' Maximum restarts 

7 P 44) CAT, 1, 255, ' Call timer 

; P 098 Cle Be 22° ! Clear timer 

3; P 0990 RST, 1, 2° ' Reset timer 

; P 0991 Sit: oe ae ! Restart timer 

: P 099¢ GNM; 0. 999 i Closed user group number 

: f 099 eee » 65535 ! Maximum circuits - VMS specific 

3 _ 0995 

: B 0996 DEFRNG (MSE ! X25-SERVER 

: P 0998 CT, 1, $3333. ' Counter timer 

; P 0995 MCI, 1, $22 5. ' Maximum circuits 

3 4 PRI, 0, 255) ! Priority 

; p 100¢ DEFRNG (MTR ! X25-TRACE 

: P 1004 BS2. 1, 409 ' Buffer size 

> P 1005 CPL. 1. 65535, i Capture Limit 

3: P 1008 CPS, 1, 65535, ' Capture size 

; P 100 MBK, 1, 65535, ' Maximum blocks 

3; P 1008 MBF, 1, 65535, ' Maximum buffers 

3 1009 MVR, 1, 63) ! Maximum versions 
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ZSBTTL ‘Macro to Define External Symbols‘ 


i EXTERNAL REFERENCES: 


Define externals for action routines 
MACRO 
ACT_DFN = 
EXTERNAL ROUTINE 
ACTSINV_COMMAND, ! Signal invalid command 
ACTSSAVPRM, ! Save a parameter 
ACTSTMPSTR ! Save a temporary string 
ACTSBLNK_SIG ! Blanks are now significant 
ACTSBLNK-NSIG, ! Blanks are not significant 
ACTSZAPTAPDSC, ' Clear temporary descriptors 
ACTSPRMPT, !' Prompt for a parameter 
ACT RNG ! Validate a number 
ACTSNUM_RNGSAV, ! Validate and store range List number 
ACT 5A ! Store a number from a range List 
ACTSSTR_LEN, ' Validate a string senate 
ACTSWRI_STR, ! Write a string to SYSSOUTPUT 
ACTSSIGRAL, ' Signal an error condition 
CTSPMT_ON ! Prompting on 
ACTSPMT—OFF, i Prompting off 
CTSPMT_Q ! Check prompting 
ACTSVRB_L ! Loop Verb processing 
ACTSVRB_UTILITY, i Most other Verbs 
ACTSVRB_SHOLIS, ' Show and List Verbs 
ACTSCLROONG ! Clear a longword 
ACTSTESTLONG, ' Test a longword 
ACTSCOPY_VALUE, ' Copy a longword 
ACTSPMTDONEQ ! See if prompting done 
EXTERNAL 
PBKS$G_ZAPACCDSC, ! Parameter block to zap descriptors 
PBK$G_VRB_ALL ' Block for ALL pereneter 
PBK$G-LOG-TYPCON, ! Block for logging types 
PBK$G_LOG_TYPFIL, 
PBK$G_LOG_TYPMON, 
PBKS$G_EVE_ESET, ! Parameter blocks for events 
PBKS$G_EVE_ECLS, 
PBKS$G_EVE_EMSK, 
PBK$G_EVE_ERNG, 
PBK$G_EVE_EWLD, 
PBK$G_EVE_ESNO, 
PBK$G_EVE_ESLI, 
PBKS$G_EVE_ESEX, 
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NCPSGL_OPTION 
NCPSGL-FNC_CODE 
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ne 
aun 


! String descriptors for access parameters 
EXTERNAL 
ACTSGL_ADR_Q, ! Flag for address 
ACTSGL_NODAREA, ! Node Area 
ACT$GQ_ACCACC_DSC, ' Account 
ACT$GQ_ACCPSW- “DSC, ! Password 
ACT$GQ_ACCUSR_DSC, ! User id 


ACTSGQ_NODEID_DSC, 


ACTSGL_SAD_BEGIN, 
ACTSGL-SAD_END; 


Node id descriptor 


Subaddress beginning value 
Subaddress ending value 


4 Status return values 


EXTERNAL LITERAL 
NCP$_INVVAL, 
NCPS$_ INVKEY 


Unrecognised value 
Unrecognised keyword 
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ZSBTTL ‘Macros to Build Subexpressions' 


The state tables for the NCP Language have been broken into 
smaller modules to reduce compile time of the separate 
modules to reduce development time. The developement Fine 
has been reduced at the expense of a slight increase in the 
size of the tables since keywords and subexpression states 
are duplicated in the separate tables. 


These macros define yrete state subexpressions to parse 
usetul entities. Including these subexpressions as macros in 
the Library avoids having multiple copies of the source of 
the subexpressions in each of the modules of the states 
tables where they are used. 


States and subexpressions are named in a distinctive way. 
States are named ST_xxx. Subexpressions are named SE_xxx and 
subexpression defining macros are named SEM_xxx. 
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ci a ed ed ed 


SBIHISAPAN SS SSISAF 


MACRO 
SSTATE 


AAC UIUIIN 
Wr—OO0O-~) 


SSTATE 


SSTATE 


SSTATE 
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SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 
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SSTATE 
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Subexpression for Node-1D 


SEM_NODE_ID = 


(SE_NODE_ID, 
( (SE_NOBE_NAM), TPAS EXIT. 


: (SE“NODE-ADR), TPAS_EXIT) 

(SE_NODE_ADR 

(SE_NOB_ADR), TPAS_EXIT, , TRUE, ACTSGL_ADR_Q) 
(SE_NOD_ADR, 

(TPAS_LAMBDA, » ACTSCLRLONG, , , ACTSGL_ADR_Q) 
C 

((SE_NODE_AREA_Q), TPAS_EXIT) 

(TPAS_DECTMAL, TPAS_EXIT, ACTSNUM_RNG, 

NUM_RANGE (COW_NODE_ADR, AIGH.NODE_ADR)) 
SE_NODE_NAM, 

TPAS_LAMBDA,  , ACTSBLNK_SIG) 


PAS_LAMBDA, , ACTSCLRLONG, , , ACTSGL_ADR_Q) 


SE_NODE_NAM1) 


< ACT$STR_L 
TPAS$_LAMBDA, 


; EN, , NODE_NAM), 
TPAS_FAIL, ACTSBLNK 


LEN 
NSIGY 


( 
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( 
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) 
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( 
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( 
( 
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( 
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( 
( 
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( 
( 
) 


TPAS_LAMBDA, TPAS_EXIT, ACTSBLNK_NSIG) 
SE_NODE_NAM1, 

TPAS_DIGIT SE_NODE_NAM1), 
TPAS_ALPHAS , 

"$") 

ST_NODE_NAM2, 

TPAS_DIGIT, | ST_NODE_NAM2), 
TPAS-ALPHA, § ST"NODE~NAM2), 

*$' ST-NODE-NAM2) , 
TPAS_LAMBDA, TPAS$_EXTT) 


-Sep-1984 


7: 


4 
4 


5 
6 


VAX=11 Bliss-32 V4.0-742 ° 
SOS SSDDADBS NCP che JuCELIBRY.B32:1 2% (245 


! If an area precedes the adr then check its range a 


eck for Node names with leading digits 
the node name has an alpha then drop to ST_NODE 
therwise it was only digits and therefore an ADR 
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See if fhe node address has an area in front 


Format is area.adr, where area and adr are dsc tect. 

(SE_NODE_AREA_Q, 

CTPAS. DECIMAL, , . ,ACTSGL_NODAREA) ! Store it in case it was an area 

(; 

Ss « a an RNG, , ! The Last number parsed was indeed an area 
RANGE (COW_AREA H_AREA) i $0 check the range 

CTPAS_ LAMBDK® TPAS_FAIC, A Actse CLRLONGS keTSGL -NODAREA) ! There was no area so clear storage 

( 

(fPAS DECIMAL, TPAS_EXIT, ACTSNUM_RNG ! Check the range of the node address 

NUM_RANGE (COW_NODE_ADR, Aicn “NODE _ADR) ) 
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.0=-74 
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s 4235 : 3 
: } ¢ } Check range of node area number : 
i ; ; 
3 4 : MACRO SEM_AREA_NUM = : 
: 84 SSTATE (SE_AREA_NUM, ; 
7 126 (TPAS_DECIMAL, TPAS_EXIT, ACTSNUM_RNG . : 
7M 1046 NUM_RANGE (COW_AREA, HIGH“AREA)S, : 
en i 7 
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Subexpression to accept NI address of the form nn-nn=-nn-nn-nn-nn 


; and since we're really nice, as a bonus we'll take nnannnnnnnnnn. 


MACRO SEM_NI_ADR = 
SSTATE 


CSE NNT ANDER) , TPAS_EXIT), 
((SE “NI-NUM), TPAS_EXIT) 


: Only accepts nn=nn=-nn=nn-nn-nn 


SSTATE (SE_NI_ADDR, 
aT (TPRS _CAMBDA, » ACTSBLNK_SIG) 


SSTATE 
SSTATE 


( 
((SE_NUM_PAIR))); 


(fe) 
); 


SSTATE (, 
((SE_NUM_PAIR))); 

SSTATE (, 

("=") 


SSTATE (¢ 
((SE_NUM_PAIR))); 
SSTATE 


ee 
‘ 
7 
~ 


SSTATE 


SE_NUM_PAIR))); 
SSTATE 


-~ ~~ 
J 
= 
~ 


SSTATE 
SSTATE 


~~ 


SE_NUM_PAIR))); 


_—- 
t 
= 
~ 


SSTATE 
NUM_PAIR), TPAS_EXIT, ACTSBLNK_NSIG), 
S_LAMBDA, fPAS_FAIL, ACTSBLNK_NSIG) 


~~ ee ~~—r eee — eee ~~ en 
_ 
a 04) 
»>m 


eo Pt) 


‘ Accept two Hex digits 
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SSTATE (SE_NUM_PAIR 
((SE_HER belt) 
(TPAS_LAMBDA, tt “PAIR_FAIL)); 


SSTATE 


{{SE_HEX_DIGIT), TPAS_EXiTS,® "e™ T19% 
(TAS LARBDA. $ _PAIR“F FAILS; 

SSTATE (SE_PAIR_FAI 
(TPAS_LARBD 


a 
| 
| 
| 
| 
L. 
A, TPAS_FAIL, ACTSBLNK_NSIG)); 
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Accept a twelve digit hex number 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 
SSTATE 


(USE HEX DIGIT) ) ) 
({SE_HEX_DIGIT)) ) 
({SE_HEX_DIGIT)) ) 
((SE_HEX_DIGIT)) ); 
(€SE_HEX_DIGIT)) ); 
) 
) 
) 
) 


((SE_HEX_DIGIT)) 
((SE_HEX_DIGIT)) 
((SE_HEX_DIGIT)) 
((SE_HEX_DIGIT)) 
({SE_HEX_DIGIT)) ); 
(€SE_HEX_DIGIT)) ); 
! 12th hex digit 
((SE_HEX_DIGIT), TPAS_EXIT, ACTSBLNK_NSIG) 


SSTATE 


SE_HEX_DIGI 
TPAS_DIGIT, TPAS 
a’, “TPAS_EXIT), 
"B'; TPAS_EXIT). 
'C'’ TPAS-EXIT). 
'D': TPAS-EXIT). 
"E*’ TPAS-EXIT) 
"F*’ TPAS-EXIT)S; 


Oe PLL PPP Pm ~ ~~ ~ ~~ ~ a ~~ ~~ ~ ~ ~~ a 


! Accept valid hex digit 
EXIT), 
| 
| 
| 


So 8 a a a as a a ss 4 2 4 4 
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MACRO 
SSTATE 


SSTATE 
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Subexpression for Link ID 


(This subexpress jog. restricts the Link ID to be a number within 
the renge 8 However, the NADR entity 1s used to store 
the D because the format is similiar: format arte of zero, 
followed S the word Link ? ddress. The format ~ t s used to 
enable requests of known Links; format byte of 


SEM_LINK_ID = 
(SE INK_ID 
_LAMBDA,, ACTSCLRLONG,,, ACTSGL_ADR_Q)); 
(IPAS _DECIMAL, TPAS EXIT ACTSNUM RNG, TRUE, ACTSGL_ADR_Q, 
NUMRANGE (0, 65535))): 
iq; 


VAX=11 BLi 742 
:CNCP. SRCINCPLIBRY. 832;1 


] 
Pose 38 
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' 
: Hex Password for Service Operations 


MACRO SEM_HEX_PSW = 


SSTATE (SE_HEX PSW 
( (SE_HEX_SfR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_HEX_PSW)); 


ee 
SaNOrRor 


1 
1 

1 

1 

1 

1 

1 

1 

i 

1381 SSTATE (SE_HEX_S 

; (T sEx$ et RRGDA, , ACTSBLNK_SIG)); 

1 SSTATE ( 

1385 (€SE_HEX_CHR)) ! Ens t least one character given 
(TPAS_LAMBDA, TPAS_FAIL, “ACTSBLNK. NSIg)) 

1 SSTATE (SE_HEX_STRI 

1 ((SE_HER_CHRS, SE_HEX STR1), _! Gobble renaining hex characters 
1390 ((SE “HEX NONTERM) “TPAS_ FAIL, ACTSBLNK_NSIG), 

31 (TPAS_LARBDA, Meas _EXIT, ACTSBLNK_NSIG)); 

1 3 SSTATE (SE_HEX_NONTE ' Return false if terminator, else t 

1394 (TPAS$_BCANK TPag FAIL), i (so that blank is not gobbled by TPARSE) 
1395 0 (TPASEOS, TPAS F 

% 6 (TPAS~LAMBDA, thd Text); 

1398 0 SSTATE (SE_HEX ! True if valid hex char (gobbled), else false 
1399 0 (TPAS “DIGIT, TPAS_EXIT), 

1400 (*A', “TPAS_EXIT),~ 

1401 (*B'; TPASTEXIT). 

1408 ("C*> TPAS-EXIT). 

1403 0 ("D', TPAS-EXIT). 

1404 0 ("E*, TPAS-EXIT) 

1405 0 (*F*S TPAS-EXIT)S; 

1406 0 

1407 0O i; 


H 14 

: 14 . 

¢ 48] 

3 461 

3; 4 161 MACRO 
3; 8 141 

; : Voi? SSTATE 
| 1219 

; . 1219 SSTATE 
74614 

3; 4 1421 SSTATE 
Mis 

; M 1426 

; 4 1425 SSTATE 
74146 $ 

1058 0 

34146 

7616 SSTATE 
: 4 1431 

ge | 

: 616 0 

341435 O SSTATE 
| O36 0 

34146 0 

7414 0 

381439 O 

: 41440 O 

341441 O 

; re 0 

; 4 144 0 

8 1444 0 
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Hex Number 

SEM_HEX_NUM = 

(SE_HEX_N 

( (SE FREX. UStrD. TPAS_EXIT, ACTSSTR_LEN, , , LEN HEX_NUM)); 
(SE_HEX_STR 

(TPAS_LAMBDA, , ACTSBLNK_SIG)); 

( 

(&SE_HEX_CHR)) ! Ensure at Least one character given 
(TPAS_LAMBDA, fPAS_FAIL, ACTSBLN *NSIg)) ° 
(SE_HEX_STR1 

((SE_HER_CHRS, SE_HEX_STR1), _! Gobble remaining hex characters 
((SE"HEX"NONTERM), TPAS FAIL. ACTSBLNK_NSIG), 

(TPAS_ EXABDAL teas _EXIT, ACTSBLNK UNSTG)): 

(SE_HEX RM ! Return false if terminator, else tru 
(IPAS ESCANK siPag xfAlu. i (so that blank is not gobbled by TPARSE) 
(TPAS_EOS, TPAS 

(TPAS ~[AMADAL sa TEXit)): 

(SE ! True if valid hex char (gobbled), else false 
TPR. Ue et TPAS EXIT), 

(*B': TPA EXIT). 

('C*, TPAS-EXIT), 

('D', TP AS-EXIT), 

("E*, TPASEXIT) 

("F*> TPASTEXIT)S; 

zt; 


tne’ ¢RCINCEL IBRY. B32; i? 
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1 
Subexpression for a circuit name 
MACRO 


SEM_CIRC_ID = 


SSTATE (SE_CIRC_ID, 
C(SE_ INE), TPAS_EXIT, ACTSSTR_LEN, , , LEN_CIRC_ID) 
q; 

: 

Subexpression for a DTE call number 


MACRO SEM_DTE_NUMBER = 


SSTATE (SE_DTE_NUMBER 
(TPAS_STRING, TPAS_EXIT, ACTSSTR_LEN,,, LEN_DTE_NUM) 


%; 
: 
Subexpression for a closed user group name 


MACRO SEM_GRP_NAME = 


SSTATE (SE_GRP_NAME, 
CTPRS SYMBOL . TPAS_EXIT, ACTSSTR_LEN,,, LEN_GRP_NAME) 
I; 

i] 

: Subexpression for an X.25 network name 


i] 
MACRO SEM_NET_NAME = 


SSTATE (SE_NET NAME, 
CTPRS_SYMBOL . TPAS_EXIT, ACTSSTR_LEN,,, LEN_NET_NAME) 


%; 
} 
: Subexpression for an X.25 destination name 
MACRO SEM_DEST_NAME = 


SSTATE (SE_DEST NAME, 
(TPAS_SYABOL, TPAS_EXIT, ACTSSTR_LEN,,, LEN_DEST_NAME) 
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Subexpression for a subaddress range of the form: 


' 
1 
i 
; number 

; number=-number 


MACRO SEM_SUBADR_RANGE = 


SSTATE (SE _SUBADR_RAN 


GE 
(TPAS_DECIMAL,, ACTSNUM_RNG,, ACTSGL_SAD_BEGIN, 


NUM_RANGE (0, 999955; 
SSTATE ( 
(TPAS_LAMBDA,, ACTSCOPY_VALUE,,, ACTSGL_SAD_END)); 
SSTATE (, 
(*-"), 
(TPAS_LAMBDA, TPAS_EXIT)); 
SSTATE ( 
(fPAS_DECIMAL, TPAS part ACTSNUM_RNG,, ACTSGL_SAD_END, 
NUM_RANGE 0, 9999))); 
%; 
Subexpression for a channels List range of the form: 
number 


number-number 
numberC-number(,..., numberC-number])) 


' 
' 
i 
i 
number, number 
i 
: NOTE: values in channels Lists have Limit of 4095 


MACRO SEM_RNG_LIST = 


SSTATE (SE_RNG_LIST, 
(TPAS_DECIMAL,, ACTSNUM_RNGSAV,,, NUM_RANGE (0, 4095)) 


); 
SSTATE (, 
(',*, SE_RNG_LIST, ACTSNUM_SAV), 
(*=*° SE-RNG_HYPHEN) , 
(TPAS_LARBDA, TPAS_EXIT)); 
SSTATE (SE_RNG_HYPHEN, 
(TPAS_DECIMAL,, ACTSNUM_RNGSAV,,, NUM_RANGE (0, 4095)), 
(TPAS"LAMBDA, TPA$_EXIT); | 
me SE_RNG_LIST) 
(TPAS_LARBDA; TPAS_EXIT) 
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Subexpression for a tracepoint name 


MACRO 

SEM_TRCPNT_NAME = 

SSTATE (SE_TRCPNT_NAME 

(SE FILED), TPAS_EXIT, ACTSSTR_LEN, , . LEN_TRCPNT_NAME) 
| 
| 
| 
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MACRO 


SSTATE 


SSTATE 


Subexpression for the ALL parameter 


SEM_ALL = 
SE_ALL, 
act) 


! If the word is here it must be last on the Line 


fPAS_EOS, TPAS_EXIT, ACTSSAVPRM, , , PBK$G_VRB_ALL) 


ee ~RR 
. 


= e = 4 
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: 16 § 3 
; 16 ! 3 
3 i? : : Subexpression for Access Control Information ; 
ee g : 
ae ; 
: M1635 3 
: M16 SSTATE (SE Act A cc : 
: " 1638 0 (SE_QOOT_STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_ACC_ACC) : 
: 1639 ‘ 3 
3; 1640 0 SSTATE (SE_ACC_P ; 
; " 1649 9 CC (SE “Soot "etR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_ACC_PSW) : 
> 1643 0 ‘ : 
: 4 1664 0 SSTATE (SE_ACC ‘ 
> 4 1645 0 ( (SE “hoor _STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_ACC_USR) : 
; #4 | 0 ); . 
: 4 1647 O . 
; 1648 0 %; 


MACRO SEM_ACCESS = 
: | 


Pee EE ERE EE EERE ER ERP ER EEE EE EER ESRERERE EEE SE EE FE & * | 
a a ak a a kd dd dd 


SESPSSSSSEESSELES 


ys 
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SESESERES 
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MACRO 
SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


Subexpression for a quoted string 


SEM_QUOT_STR = 


(SE yeu! STR, 
(TPAS_EOS, TPAS_ FAIL) 
(TPAS BLANK 


‘ ACTSBLNK_SIG), 
(TPAS-LAMBDA, ; G 


$I 
ACTSSLNK= -51G) 


fee TRAS_EXIT) 


s-32 V4.0 
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! Got to be senqthing 
! Make blanks significant 


! Quoted string or just string 


| 
| 
| 
! Just a string 


! A quoted string to be sure 


TPAS_EXIT, ACTSBLNK_NSIG) 
' Do we have a double quote 
| 


); 

(, 

(fore ST_QUOT_STR3), 
(TPAS_LAMBDA) 

(ST uot S12, 

(TPRS_SYMBOL, ST_QUOT_STR2), 
(TPASB LANK,  § ST"QUOT“STRX), 
(TPAS_ANY, ST~QUOT"STR2), 
CTPA AS_EOS, STQUOT"STRX) 
(S$T_QUOT_STR3, 

( (SE vOuOT _DBL), ST_QUOT $1R3), 
qoent sT_Gu uot _STRX) 
(TPAS_ANY, $T~QUOT~STR3). 
T PAS_EOS, ST auOT STRE 
(ST_Q 

CTPAS_L UPARBDAS” 

(ST_Q 

CTPAS_L UPARBDAS TPAS_FAIL, ACTSBLNK_NSIG) 
(SE_QUOT_DBL, 

(Fg JOT 

) 

( 

( 

) 

x 
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re] 


: Event List subexpression 


NO Or 


MACRO 


Mew 


SEM_EVENT_LIST = 


SSTATE (SE_EVENT LIST, 
(TPAS_LAMBDA, , ACTSBLNK_S1G) 


); 
93 SSTATE (, 
11 ( (SE_EVENT), TPAS_EXIT, ACTSBLNK_NSIG), 
\¢ gn LO TPAS_FAIL, ACTSBLNK_NSIG) 
14 
15 
1 : 
18 } Parse a single event 
1 


SSTATE (SE_EVENT 
TPAS_DECIMAL, ,ACTSNUM_RNG, , 
NUM_RANGE (LOW_EVENT_CLS, HIGH_EVENT_CLS) ), 


SSTATE 
PAS_LAMBDA, , ACTSSAVPRM, , , PBKSG_EVE_ECLS) 


SSTATE 
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) 
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) 
SSTATE 5 
( 
) 
( 
( 
( 
( 
( 
) 


fir) 
T_EVENT 1, 
(SE_EVERT_TYP), , ACTSSAVPRM , PBKSG_EVE_EMSK), 
*e’ “TPAS_EXIT, ACTSSAVPRM, 2°(14+8), PDBSG_VRB_EVE. PBKS$G_EVE_EWLD) 
SSTATE (, 
zo tet STEVENT=2). 
41 TPAS_BLANK, TPAS EXIT), 
4¢ TPAS-EOS, TPAS_ERIT) 


e205 76 
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NCPLIBRY sya 
Macros to Bu 


SSTATE | 


( 
( 
) 
SSTATE (, 
( : 
(Thag$ 
CTPA 


! Known 


SSTATE (SE 
CIPRS 
) 


eh Def 
d Sube 


ST_EVE 
BLANK 
events 


VENT_KN 
LAMBDA 


inition Library Ybedeo-19Re 35:05:45 vay] atige: 


Me a. 
SE_EVERT_TYP), , ACTSSAVPRM, , , PBKSG_EVE_ERNG) 


NT.1), 
TPAS EXIT), 


S"E0S, fPAS_ERIT) 


OWN 
, TPAS_EXIT, ACTSSAVPRM, 3°(14+8), PDBSG_VRB_EVE, 
PBK$G_EVE_EWLD) 


: Parse the type for an event 


SSTATE (S 
(T 
; 
iq; 


VENT 


EE TYP, 
PAS_DECIMAL, TPAS_EXIT, ACTSNUM_RNG 


NUMRANGE (LOW_EVENT_TYP, HIGH_EVENT_TYP) ) 


+ 


32 V4.0-74 
NCP.SRCINCPLIBRY.B832;1 


Page 51 
29° (36) 


—~ 
uw 


AaANS 
MEW —O0OOnNO 


pe ee ee i ee be | 


BBSSESSEEESEIEIIIEI=S 
Oo 


SSIssgSFS833 


3S 


wr 


Sessa 


(9 Cd 0d 09 G0 CO CO 

ed ed ad ed ed 

WONOUSWN—O 
SGOOSOSOOOOOCOOOOOOOSOCSOCOOOSOSOOSSOOOSCOCSOSOCOCOOCOOOOOOOOOOOOOOOOoOO 


es 


BVBBVSSSBSSSSSSTSESTEEEESEETETITZ 
a ee ee ee ee ee ee a ee ed 


2.090900 00 0d Gd Cd 0D C9 Cd 0D CD 00 CD 
2S SONU EUS 


13 
NCPLIBRY Symbol Definition Libra 13. -1984 23:05:45 1 Bliss- 4.0 
Macros to Build Subexpressions = 1 3¢8 $3: 03:22 Vest OASa cach’ Shc JucPLIORY. B32;1 Page 536 


Logging type 
MACRO 

SEM_LOG_TYP = 
SSTATE (SE_LOG_TYP, 
KEYWORD_STATE 
(LOG, 


TYPCON, CONSOLE", 
TYPFIL, ‘FILE’ 
YPMON, ‘MONITOR’, 


q; 
: 
Subexpression for Object ID 


MACRO 
SEM_OBJECT_ID = 


SSTATE (SE OBJECT ID, 
((SE_OBJECT_NAM), TPAS$_EXIT) ,° 
((SETOBJECT “NUM: TPAS_EXIT 


); 
SSTATE (SE_OBJECT_NUM, 

C(SE_08J_NOM) , TPAS_EXIT, , TRUE, ACTSGL_ADR_Q) 
SSTATE (SE_OBJ_N 

(TP PRS_ URNBDA, , ACTSCLRLONG, , , ACT$GL_ADR_Q) 
— Hess DECIMAL TPAS EXIT, ACTSNUM_RNG 

; ~"NUM_RANGE (COW_O0BJ_NUM, HIGH_OBjJ_NUM)) 
SSTATE (SE_OBJECT_NAM, 

CTPAS_ LAMBDA, , ACTSCLRLONG, , . ACTSGL_ADR_Q) 
SSTATE ( 

(fPAs. SYMBOL, TPAS_EXIT, ACTSSTR_LEN, . , LEN_OBJ_NAM) 

q; 
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i Subexpressions for a query state 
MACRO 


SEM_QUERY = 
SSTATE (SE QRY_YES, 
("YES")? 


SSTATE 

fPAS_EOS, TPAS$_EXIT) 
SSTATE (SE_QRY_NO, 

*NO'),” 


SSTATE 
PAS_EOS, TPAS_EXIT) 


esas 34 22 eo 


C2 09 Cd Cd C9 Cd OD CD CD: 
SANS 
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Sessseneaeaees 
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! 
Subexpressions for load parameters 


SEM_LOAD (CLS) = 
: Subexpression for service device 


SSTATE (XNAME ('ST_',CLS,"_SDV"), 
KEYWORD_ STATE 
(CLS, 


: Software identification 


SSTATE . 
); 


' 
Software type 
SSTATE (UNAME ("ST_",CLS,*_STY"), 
DISPATCH_STATES 
(CLS, 
TSL, ‘SECONDARY’, 


Ss 
STIL, ‘TERTIARY’, 
STOS, ‘SYSTEM’, 

) 


1 
1 


Se 
~tep- 


E_SOFT_ID 
(SE_QUOT_STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_SOFT_ID) 


Vv 


BL 


UA 
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); 


45 
46 


SSTATE (ZNAME ("*ST_", CLS, ‘_PRC_STSL"), ! Secondary loader 
*LOADER' J 


TPAS_LAMBDAS 


SSTATE 


CZNAME ('ST_',CLS,"_STSL') ), TPAS_EXIT) 


( 
( 

( 

) 

( 

( 

) 

SSTATE (XZNAME (°ST_', CLS, *_PRC_STTL"), ! Tertiary loader 
( LOADER’ 

) 

( 

( 

) 

( 

( 

) 


TPAS_LAMBDAS 


SSTATE 


(ZNAME (*ST_",CLS,"_STTL") ), TPAS_EXIT) 


SSTATE (ZNAME ('ST_', CLS STOS') ! System 
(ZNAME (°ST]".CL *) ), TPAS_EXIT) 


We 
. 
oe 
't 


ae 


SUB_EXPRESSIONS 
(CLS, 


STSL, TPAS_LAMBDA, 
STIL. TPAS~LAMBDA, 
STOS, TPAS~LAMBDA 


~ 


: Cpu type 


SSTATE (XNAME ('ST_',CLS,"_CPU'), 
KEYWORD_STATE 
(CLS, 


cPu10, ECs STEM1020", 


_ 
o—-< 
. 
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‘END 
‘ELUDOM 
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Be 93:27:26 
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Macros to Build Subexpressions ' gep-19 4 $3 7:48:08 $255 $05 Tet : (NCP. SRCINMAHEAD.B32; 1 . (1) 
; 1968 ! : 
: 1309 : Version: *v04-000' : 
: 136 Se gee cee eae ; 
: ie wy Ps 
; 61974 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 B . ; 
3 1975 '® DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * ° 
: 1278 8 - ALL RIGHTS RESERVED. * ‘ 
M 4 ® e 
; 1978 O fe Tats FOr TUARE is FURNISHED 1UnoeR A LICENSE AND MAY BE USED AND COPIED * ‘ 
:; 1979 0 '® ONLY IN ACCORDANCE WITH THE TER nS OF SUCH LiCceN SE AND WITH THE * , 
; 1980 8 'w INCLUSION OF THE ABOVE Sr Rot ben OTICE. THIS SOFTWARE OR ANY OTHER ® ; 
: 1981 's COPIES THEREOF MAY NOT BE P OVIDED oR OTHERW ISE MADE AVAILABLE TO ANY * ; 
4 1386 0 'w OTHER PERSON. NO TITLE TO ANY OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: 1983 9 ie TRANSFERRED. * : 
é it * . 
: 1985 0 '® He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
3 1986 0 '® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ° 
g bs $4 8 ? CORPORAT DN. ® : 
° :* ® e 
: 1989 0 ' DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: ba 8 » SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® ‘ 
g 4 ® ° 
; pa 0 '® * . 
3 bad, 4 Lee R REET EAA RAAT AAA AAA ATTRA ° 
5 1 : 
; 1995 0 '++ . 
>; 1996 0 ' : 
3 pat 4 3 NMAHEAD .832 ‘ 
: 444 8 : Define SEQULST macro to make Library from the NMALIBRY.B32 file ; 
: 2001 0 : This source is taken from the following source: : 
: $008 0 len ‘ 
3 200 0 lee Py 
: 2004 8 i . 
3 2005 i UTLDEF .832 = UTILITY DEFINITION MACROS FOR BLISS PROCESSING 2 
$ 006 0 ! OF STARLET DEFINITION MACROS. . 
3 007 O i : 
: 008 O len 3 
; 009 0 3 
3 010 0 3 
3 011 O ! ‘ 
: Org ! MACRO TO GENERATE EQULST CONSTRUCTS. : 
: 5014 0 MACRO ; 
; ® 2015 O SEQULST(P,G,1,S)CAJ= : 
> 2016 0 ZNAME(P.GETIST_ A) = : 
: 42017 O ZIF NUL2ND” A : 
3; M 2018 ZTHEN (J) F wa? ‘ppb ' ASSUMES I, S ALWAYS GENERATED BY CONVERSION PROGRAM : 
: # 2019 ZELSE GET2ND_ ; 
5 ? 0 FI 2%, : 
: 028 o GET1ST_(A,B)= ; 
3 0 A : 
7M 2024 : GET2ND_(A,B)= : 
: 2025 Bx, ! KNOWN NON=NULL | : 
i 


“OOONO 


Si 
PEST, betta statist fe.usbrer WERTE188G REGS VSBSHLABUNTTABGiPadtleen sess" A 
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Privilege List 
Privilege List clear 
Setup event parameter 
Store event class 
Store single event 
Store event type range 


Macros to Build Subexpressions -Sep-1984 5:41 -$255$DUA28: (NCP. OBy INCPDEF R32;1 (1) | 

0 § ' FARRAR AALASALELAALA LEASES ESAL ASE AASA REARS A LASER ESA SALES ERASE SALE SEES E REESE LEE EERE EER EERE EC EEE CEE CEE | 
0 ' Created 15-SEP-1984 23:05:41 by VAX=11 SDL V2.0 Source: 15-SEP-1984 22:47:31 _$255$DUA28:CNCP. SRCINCPDEF. | 
3 : ' $RRRARASAAAASALASEALLALERAAAEAASASAAALRAAAAAE SALAS ASESAAL ERE REAL REESE RAE A REESE SESE EERE SEER S REESE ESE E EEE ESE 
‘eee MODULE SPBKDEF *** 

0 literal Perse atte = 9; ! Size of the structure 

0 Literal PBKSC_SIZE = 9; ! Size of the structure 

04 Parameter type values 

04 iteral PBKSK_ = 1 ! Lowest value here 

04 teral PBKSK_LITB = 1; ' Literal byte 

04 teral PBKSK_NUMB = 2; ' Numeric byte 

04 teral PBKSK_NUMW = 3; ! Numeric word 

04 teral PBKSK_NUML = 4; ! Numeric Longuord 

04 teral PBKSK_TKN = 5 ! Token string 

04 teral PBKSK_TKNQ = ! Quoted token 

04 teral PBKSK_NADR = ! Node address 
204 teral PBKSK_ we = ' Hex password 
205 teral PBKSK_STRQ = ! Quoted string 
205 teral PBKSK_TRIPL = 10; ! Version triple 
spe teral PBKSK_LITL Long word Literal 
205 ' 

05 : 

05 : 

05 : 
205 ! 

05 


' $§tore source node 
! $§tore source Line 
d at bottom /* Store module name 
Source - ouecuter node 


WN“ OOOBNOULSWN—OOONOULSWN—OO0@ 
ao 
® 
7 
& 
~ 
4 
» m a 
Bun =z - 
x 
honnnnnnnn 


MOPOPMOPOPoPoforforofory 


‘eee MODULE SPDBDEF *** 
Literal PDBSK SIZE = 2; ' Size of the structure 
Literal PDBSC"SIZE = 2; 

Literal PDBS$S_PDBDEF = *2; 


' Size of the structure 


CGOOCOCOCOCOCOCOCOOCOOCOOS COCO OSSSOSSOSSSGSOOSSCSOOCSCCOOOCOCSCOCOSOOOCOOOOOCOOOOO 


Se Oe Be Se Se Se Be Be Se Ge Ge Se Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Ge Fe Ge Ge Ge Se Se Ge Se Se Se Se Ge Se Se Se Ge Gee Ge Se Se He FH Se Se ase Ge Se Ge 


' 

064 teral PBKSK_ENT = ! Entit bY e and | 

065 n ! End of PCL List 

066 teral PBKSK_SAD = ! Subaddress range 

067 teral PBKSK_OBJ = ! Object ID j 

068 teral PBKSK_ESCI = 26; : Store. source circuit 

069 teral PBKSK_RNGL = 27; ! Range lists 
2070 teral PBKSK_HEX = 2 ! Hexidecimal numbers 

071 teral PBKSK_AREA = 9; i byte of zero and byte of Node Area 

Ors teral PBKSK ! Node Area and Address 

07 NOTE: Used instead of NUMW to avoid hassle of aendl ine area by action routine 
2074 teral PBKSK_N = 31; ! WI address, HEX image printed backwardss 
075 teral PBKSK~ “DELTIN: = ¢: i Delta tine. (Hours, Minutes, Seconds) 
076 teral PBKSK_DAYTIM = 33; ! Day and time sey Month, Hour, Minutes, Seconds) 
077 Literal PBKSK_LITLST = 34; ! Variable Length ist of coded data 
078 Literal PBKSK_MODPRM = 35; ! Store module name 

079 veral PBKSK_HIGH = 35; ! Highest value here 

080 Literal PBKSS~PBKDEF = 9; 

081 macro PBK$B_TYPECODE = 0,0 8. oe ! Type of parameter to store 

08 macro PBKSL_PDB ADR = = 1.0 $2°0 &: 

macro PBKSL_PARAM = 5,0, 2.0 3 ! Parameter for savparam routine 


SSSSSS 
SNe 


! Address of parameter data block 
| 
| 
} 
| 


$ep-1984 5: VAX-11 Bliss 

i§-te geen abe Seihesc, “esse gnbases 
0,8,0 %; ' Status fl 

macro PDBST-DATA = 1,0,8,6 &; i Bate is herve 
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macro PDBS$B_STS en = 0 
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091 

O36 ‘eee MODULE SSDBDEF *** 

09 literal etree: = 9; 

094 Literal SDBSC_SIZE = 9; 

095 Literal SOBSS"SDBDEF = 9; 

0% macro SDBSB_ERT_TYP = 0 6.8.1 %; ! Entity type. If negative, 

09 then Systin- spec tic ntity type. 

098 macro SDBSL NT_ADR = 1.0.3200 z; ! Entity parameter address 

099 macro SDBSL_PCL_ADR = 5,0,32,0 %; ! Parameter control List address 
‘eee MODULE ency Orr eee 


SELESRELLS 


literal PCLSK_SIZE = 7; ! Size of the structure 


Literal PCLSC"SIZE = 7; 


Size of the structure 


¢ 
° 
° i 
; 
° | 
; | 
; 
3 1 | 
5 1 
3 1 
: 1 0 
; 1 8 Literal PCL$S _PCLDEF = 7 
3 1 macro PCL$B -pen_iye = 0,6,8,0 a; Type of parameter 
3 1 macro PCL$W_PRM_ID = 1 6,16;0 Code value for parameter 
3 ; macro PCLSL_ -PbB “ADR = $,6,32,0 ‘; Address of PDB for parameter | 
: 1 0 ‘eee MODULE SLCBDEF *** 
; 110 0 Literal LCBSC_NCBSIZE = 100; Size of NCB 
3 111 0 Literal LCBSK_ = 118; Size of structure 
; sii¢ 0 literal LCBSC_SIZE = 118; Size of structure 
; gti 0 literal LCBSS~ LCBDEF = 118; 
; 114 0 macro LCBSB. STS 8-8-8 i; Status, true for Link open | 
> 2115 0 macro LCB$B-PH2 = 1.0.8.0 3: Phase [1, true for phase II NML 
3 1146 0 macro LCBSW_ CHAN = 3,6,16,0 2: Link “choonel number 
; 117 O macro LCBSW_MBXCHN = 4,0 16,0°% Mailbox channel number 
> 2118 0 macro LCBSB-NMLVERS = 6.§.24.0 i; 
; 119 0 Literal LCBSS_NMLVERS = 3; ' NML version number (3 bytes) 
$ 120 0 macro LCBSL_NUBCNT = 10,0,32,0 2; ! Descriptor for NCB 
: 2121 0 macro LCBSL_NCBPTR = 14,0,32,0 2%; 
; glee 0 macro LCB$T-NCB = 18,0,0,60 %: 
; gi¢3 0 Literal LCBSS_NCB = 106; ' Network Control block 
H sis? 0 pees MODULE SNCPDEF *** 
; 3137 0 Index the MODULE entities 
3 129 0 teral NCPSC_ENT_MODCNF = 1; ! Module Configurator 
; 1 0 teral NCPSC_ENT_MODCNS = ¢: ! Module Console 
3 131 0 teral NCPSC_ENT_MODLOA = 3; ! Module Loader 
3 132 teral NCPSC_ENT_MOD = 4; ! Module L gper 
; 135 teral NCPSC"ENT-MODACC = 5; ' Module X25-Access 
: 1 teral NCPSC_ENT_MODPRO = $: ! Module X25-Protocol | 
3 135 teral NCPSC_ENT_MODSER = 7; ! Module X25-Server 
: 136 teral NCPSC_ENT_MODIRC = 8; ! Podule X25-Trace 
: 137 teral NCPSC_ENT_MOD29S = 9; ! Module X29-Server 


ad 
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' 
; Version: *v04-000' 
i 
; NMATAIL.832 
i Source to eecestere the macros required for the precompile of 
NMALIBRY.B352 so they do not appear in the Library. 


UNDECLARE ZOUOTE SEQULST, 

QUOTE GETIST_, 
ZQUOTE GET2ND~. 
ZQUOTE NULOND~ 


Sete Ge Ge Ge ee Ge Ge Ge Ge Ge ee Ge SHS Se Se Ge Gee 
Dk ad ad td od 
PPADS ES BS EE EE 


SE AFUNLSSRUSERRGN SSS 


8 } End of NMATAIL.B32 
; BLISS/LIB=LIB$:NCPLIBRY/LIS=LIS$:NCPLIBRY SRC$:NCPLIBRY+NMAHEAD+L IB$:NCPDEF +SRCS:NMATAIL 


; Run Time: 00:16.4 
; Elapsed Time: 00:26.7 
3 Lines/CPU Min: 7905 

3; Lexemes/CPU-Min: 39144 


; Memory Used: 124 page 


; COMMAND QUALIFIERS 
s 
; Library Precompilation Complete 
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